home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / file_mgt / parse_m / exampl07.pom < prev    next >
Encoding:
Text File  |  1995-05-02  |  501 b   |  23 lines
  1. ;
  2. ;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. ;   Replace every tab character with two spaces
  7. ;
  8. CHANGE   $FLINE  $TAB  "  "
  9. ;
  10. ;   Extract the columns
  11. ;
  12. SET      ProgName = $FLINE[ 1 20]
  13. SET      Descrip  = $FLINE[22 99]
  14. ;
  15. ;   Trim the spaces
  16. ;
  17. TRIM     ProgName  "B"  " "
  18. TRIM     Descrip   "B"  " "
  19. ;
  20. ;   Output the result
  21. ;
  22. OUTEND   |"{ProgName}","{Descrip}"
  23.